10 A=3 : REM ANZAHL VORKOMMASTELLEN
20 B=3 : REM ANZAHL NACHKOMMASTELLEN
30 FORY=1TO10:READX(Y):NEXT
40 PRINT"[147]ZAHLEN 'RECHTSBUENDIG'"
50 FORY=1TO10:PRINTTAB(A-(INT(LOG(X(Y))/LOG(10))));INT(X(Y)*10^B)/10^B:NEXT
60 PRINT"TASTE!":POKE198,0:WAIT198,1:LIST-50
70 DATA20.345,123.67,9.4,195.43,999.99999,13.654,274.19,75.75,869.1,2.47